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TRING = set search string’ 
sechnaeniag 1 ( ! Set search strin 
d= 
BEGIN 


AROSE LSLE LISTE TEE E EE ET TTT e cece cre i ere cri ci ric i citi iii iiiiit) 


ie COPYRIGHT (er 1978 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corite 
'@ 2 IN ACCORDANCE WITH THE TERMS pf SUCH bee AND atte THE 


ra 


® 
® 
® 
® 
® 
t 
® 
; I * 
!* OTHER PERSON. NO. TITLE TO AND OWNERSHIP oF THE SOFTWARE IS HEREBY * 
'@ TRANSFERRED. * 
; ® 
'e THE yo ope IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
& 
® 
® 
* 
® 
® 
® 
* 


!* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MASSES ELSSIS SLES ETE E TTT TTT TT TC TTT Pec e Cece cece ce eee c eect e errr e criti i iiie | 
' 


++ 
! FACILITY: EDT == The DEC Standard Editor 


‘ 

i 

' 

ABSTRACT: 
Set up the current search string. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: February 7, 1978 

MODIFIED BY: 

i 1-001 - Original. DJS 19-FEB-1981. This module was crested by 

i extrect tng routine EDTS$SET ASEASTR from module UTIL. 

i 1-002 - Regular ze headers and don't store into the parameter list. This change 
i aves one word on the PDP-11. JBS 11-Mar-1 

i 1-003 - chenee the check for edt$$exct match to consider wos. STS 02-Oct-1981 

i 1-004 = Add an error return. JBS 04- ay-198 

1-005 - Allow O-Length strings. JBS 05-May-1982 
i 
le 


1-006 = Don't upcase the search string; the matching condition may be changed 
before the string is used for the last time. JBS 16-Jul-1982 


D 
Weaseen 188s PSesy Peete eer seeSusstainc.ou1s} 


NT = ‘v04=-000' ! File: USS TRING. BLI Edit: JBS1006 


2 
TSyss Taine EDTSUSSTRING = set search string ibs Sep 
Declarations 14-Sep 


SSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


1984 02:00:53 VAX=11 Bliss-32_V 
pr}9be 5:25:57 DhekSvMenSSTER-cE 


— 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSSET_SEASTR; 


INCLUDE FILES: 


REQUIRE “EDTSRC:EDTREQ'; 


NI SSSUEAFERIS SBE 


EXTERNAL REFERENCES: 
In the routine 


Be Oe Se Se Se Ge Se Se Se Se Oe Oe Se Se Se Oe Se Oe Se Oe Se Ge Ge Se Oe Oe Oe Se Se SH He oe 
GN 
—_ 


ob bs ss bs tk ts 2 ab a tt 


7 i MACROS: 
74 i 
if NONE 
A EQUATED SYMBOLS: 
79 i NONE 
80 i 
81 i OWN STORAGE : 
HE i NONE 
84 ! 

1 

' 


‘cet. OSRCSUSSTRING. BLI; a 
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F 2 
TRING = set search strin 16-Sep-1984 02:00:53 VAX-11 Bliss-32 V4.0-7 3 
T.SEASTR = set up searel string 18-808-1 382 95:90:33 DISKSVMSMASTER: CEDT. Ske USSTRING.BLI; Page (3) 


ZSBTTL “EDTSSSET_SEASTR = set up search string’ 
GLOBAL ROUTINE EDTSSSET_SEASTR ( 
STRING, 


ER TOUSS TRING 


! Set up search string : 
! Address of new search string 
E ! Its length 

) es 

'oe 


FUNCTIONAL DESCRIPTION: 


This routine sets up the search current search a If the parameter 
is zero in length, the current search string is kept. 


i 

i 

i 

FORMAL PARAMETERS: 

STRING Pointer to the new search string. 
LEN Length of the new search string. 
IMPLICIT INPUTS: 

NONE 

IMPLICIT OUTPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


EDTS$T_SEA_STR 
EDTS$$G_SEA_STRLEN 


ROUTINE VALUE: 


1 = succes 
0= invalid string 


SIDE EFFECTS: 
NONE 


————— 
se Sete Geese 


BEGIN 

EXTERNA 
ED DT SST -SEA_STR : BLOCK CCHSALLOCATION (64), ! Last search string. 
EDTS$$G_SEA_ STRLEN; : Length of above. 


REUIAS OO NONE UN OOH NIE NEW OSB AR AUC DO IMR OD 


CAL 
RET_VALUE; 
IF ((.LEN GTR 0) AND (.LEN LEQ 64)) 
THEN 
BEGIN 
EDTSS$CPY_MEM (.LE 
EDT$$G_SEA_STRLEN 
RET_VACUE = 1; 


N, .STRING, EDTS$T_SEA_STR); 


———_—— 
. . 
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ELSE 


; Routine Size: 


; 150 
151 


1$-sep-1984 


EDTSUSSTRING = set search strin :00:53 VAX=11 Bliss-32 V4.0-74 
EDTSeeet ScasTR = set up search string 122800-1 384 95 390 33 DISKSVMSMASTER:CEDT.SRCJUSSTRING.BLI; he 
at IF (.LEN EQL 0) THEN RET_VALUE = 1 ELSE RET_VALUE = 0; 
at RETURN (.RET_VALUE); 
71 END; ! of routine EDTS$SET_SEASTR 
-TITLE EDTSUSSTRING EDTSUSSTRING = set search string 
-IDENT \v04-000\ 
-EXTRN EDTSST_SEA_STR, EDTS$G_SEA_STRLEN 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
007C 44 ENTRY EDTSSSET_SEASTR, Save R2,R3,R4,R5,R6 3 
56 08 Ac rt 8308 MOVL EN, R6 : 
18 1 Bo88 BLEQ 1 ; 
00000040 =F 38 D1 0000 CMPL RG. #64 ; 
1 14 QOOOF BGTR 1$ : 
000000006 00 046 BC 29 28 00011 MOVC3 R6, @STRING, EDTS$T_SEA_STR : 
000000006 00 6 DO OOOIA MOVL R6, EDT$$G_SEA_STRLEN 3 
9 11 itd BRB 2s ; 
6 D5 00023 1$: TSTL R6 : 
04 12 00025 BNEQ : 
50 01 00 00027 2$: MOVL #1, RET_VALUE 3 
04 Q002A RET : 
50 D4 00028 3$: CLRL RET_VALUE ; 
04 00020 RET : 
46 bytes, Routine Base: _EDTSCODE + 0000 
0720 1 
0721 1 !<BLF/PAGE> 


4 
* (3) 


0719 


H 2 . 
eaves tains EDTSUSSTRING = set search string 16-Sep b+ 95:00:33 VAX-11 Bliss-32 V4.0-7 Page 
v04 EDTSSSET_SEASTR = set up search string 14-Sep 5-19 4 12:25:21 DISKSVMSMASTER:CEDT. sre USSTRING.BLI;1 
s 153 07 ; 1 END ! of module EDTSUSSTRING 
; «41546 8 1 
3. 139 724 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 46 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
$ Library Statistics 
PAD Sion arenes a) Cee | eee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$0UA28: CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
3 COMMAND QUALIFIERS 
; BL ISS/CHECK=CF ELD. INITIAL <OPTERIZE) /HOTRACEBACEAL [Sut 1581058 TRING /ORJ 9085 USS TRING MSRC$:USSTRING.BLI/UPDATE=(ENH$:USST 


; Size: 46 code + 0 data bytes 
; Run Time: 00:09. 
; Elapsed Time: O7:13.9 


: 4529 
; Lexenes/CPU-Min: 12462 


penery Used: 59 pages 
; Compilation Complete 
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